home *** CD-ROM | disk | FTP | other *** search
/ Aminet 49 / Aminet 49 (2002)(GTI - Schatztruhe)[!][Jun 2002].iso / Aminet / util / misc / ssutils.lha / Spidersoft_Utilities / Install_Utils < prev    next >
Encoding:
Text File  |  1980-01-01  |  2.5 KB  |  122 lines
  1. ;$VER: Spidersoft_Utilities Installation Script
  2. (welcome)
  3.  
  4. (set inst
  5.     (askchoice
  6.         (prompt "Install which program...")
  7.         (help @askchoice-help)
  8.         (choices "Garden Designer" "Property Protector")
  9.     )
  10. )
  11.  
  12. (set @app-name
  13.     ("Garden Designer")
  14. )
  15.  
  16. (set otherapp
  17.     ("Property Protector")
  18. )
  19.  
  20. (if (= inst 1)(
  21.     (set @app-name
  22.         ("Property Protector")
  23.     )
  24.     (set otherapp
  25.         ("Garden Designer")
  26.     )
  27. ))
  28.  
  29. (set @default-dest
  30.     (askdir
  31.         (prompt "Please select a place to install " @app-name)
  32.         (help @askdir-help)
  33.         (default "Work:SSoftUtils")
  34.     )
  35. )
  36.  
  37. (if (= inst 0)
  38.     (
  39.         (copyfiles
  40.             (source "Spidersoft_Utilities:")
  41.             (choices "DND" "HowDoI?")
  42.             (dest @default-dest)
  43.             (help @copyfiles-help)
  44.         )
  45.  
  46.         (copyfiles
  47.             (source "Spidersoft_Utilities:")
  48.             (dest @default-dest)
  49.             (pattern "Garden#?")
  50.             (help @copyfiles-help)
  51.         )
  52.  
  53.         (if (exists "Spidersoft_Utilities:Reg")
  54.             (copyfiles
  55.                 (source "Spidersoft_Utilities:reg")
  56.                 (dest @default-dest)
  57.                 (help @copyfiles-help)
  58.             )
  59.         )
  60.     )
  61. )
  62.  
  63. (if (= inst 1)
  64.     (
  65.         (copyfiles
  66.             (source "Spidersoft_Utilities:Property_Protector")
  67.             (dest @default-dest)
  68.             (infos)
  69.         )
  70.  
  71.         (makedir (tackon @default-dest "PP_Data"))
  72.         (set ppdata (tackon @default-dest "PP_Data"))
  73.  
  74.         (copyfiles
  75.             (source "Spidersoft_Utilities:PP_Data")
  76.             (dest ppdata)
  77.             (all)
  78.         )
  79.     )
  80. )
  81.  
  82. (set other
  83.     (askchoice
  84.         (prompt "Have you installed " otherapp " on your hard drive?")
  85.         (help @askchoice-help)
  86.         (choices "Yes" "No")
  87.         (default 1)
  88.     )
  89. )
  90.  
  91. (if (= other 1)
  92. (
  93.     (set save
  94.         (askdir
  95.             (prompt "Please select a place for your saved files")
  96.             (help @askdir-help)
  97.             (default "Work:SSoftSaves")
  98.         )
  99.     )
  100.  
  101.     (startup @app-name
  102.         (prompt "A few commands need to be added to your user-startup...")
  103.         (help @startup-help)
  104.         (command "assign Spidersoft_Utilities: " @default-dest
  105.                  "\nassign Saved: " save)
  106.     )
  107. ))
  108.  
  109. (if (= other 0)
  110.     (
  111.         (startup @app-name
  112.             (prompt "A few commands need to be added to your"
  113.                     "user-startup...")
  114.             (help @startup-help)
  115.             (command "assign Spidersoft_Utilities: " @default-dest " add")
  116.         )
  117.     )
  118. )
  119.  
  120. (exit)
  121.  
  122.